home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #2 / Amiga Plus Extra 1997 #2.iso / pd / misc / macro / mpascal / info.ged < prev    next >
Encoding:
Text File  |  1997-02-16  |  336 b   |  22 lines
  1. /*
  2. ** $VER: info 0.001 (10 Sep 1994) ***
  3. **
  4. ** (c) © 1994 Oliver Clouth
  5. **
  6. */
  7.  
  8. host = ADDRESS()                              /* get GED's port    */
  9.  
  10. IF show('p', 'MPASCAL') THEN
  11.  
  12.     do
  13.         ADDRESS MPASCAL
  14.         "info"
  15.     end
  16. else 
  17.     do
  18.         ADDRESS (host)
  19.         'REQUEST BODY "Couldn''t launch MPascal ?!"'
  20.     end
  21. EXIT
  22.